﻿Imports System.Web
Imports Mysoft.Map.Data
Imports System.Configuration
Imports Mysoft.Map.Application.Security
Imports System.Data.SqlClient

Public Class ICgZtb
    '''功能:    主要用于在采招子系统外的系统中获取采购方式，作为采购方式选择控件的数据源
    '''参数:    无
    '''返回值:  DataTable       所有采购方式
    '''说明:    数据库连接不成功，返回空数据集(new DataTable)
    '''创建人:  黄威
    '''创建时间:2009-12-01
    Public Function GetCgType() As DataTable
        Dim strSQL As String
        Dim dtResult As DataTable
        strSQL = String.Format("SELECT CgTypeName as [text],CgTypeName as [value] FROM cg_CgType ORDER BY CgTypeCode")
        Try
            dtResult = MyDB.GetDataTable(strSQL)
        Catch ex As Exception
            dtResult = New DataTable()
        End Try
        Return dtResult
    End Function
End Class
